home *** CD-ROM | disk | FTP | other *** search
/ La Bible Des... Jeux / La Bible des... Jeux.iso / Les Sharewares / Educatifs / A Panda is for Life... / Musical Panda / Musical Panda.6 / 00130.ls < prev    next >
Encoding:
Text File  |  1995-12-03  |  413 b   |  16 lines
  1. on mouseDown
  2.   global BFLAKE
  3.   set whichCursor to the number of cast "fist"
  4.   cursor([whichCursor, whichCursor + 1])
  5.   set which to the clickOn - BFLAKE
  6.   if the stillDown then
  7.     repeat while the stillDown
  8.       dragFlake(getAt(flakeList, which))
  9.     end repeat
  10.   else
  11.     toggleCharm(getAt(flakeList, which))
  12.   end if
  13.   set whichCursor to the number of cast "hand"
  14.   cursor([whichCursor, whichCursor + 1])
  15. end
  16.